home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / KEYPRS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-04-21  |  640 b   |  20 lines
  1. {$C-,U-}
  2. {Note : U compiler directive is off by default.  I show it here to make it
  3.  clear that it must be off}
  4. var
  5.    j : integer;
  6.    ch : char;
  7.  
  8. begin
  9.    j := 0;
  10.    clrscr;
  11.    repeat
  12.       begin
  13.          j := j + 1;
  14.          writeln('j = ',j);
  15.       end;
  16.    until keypressed;
  17.    read(kbd,ch);    {Under most operating systems, eliminating this line in
  18.                      this program will cause Turbo to interpret the character
  19.                      entered.  The exception is generic MS-DOS}
  20. end.